home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / macro28.lha / Macro / GoldED / ged_help.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1992-12-04  |  662 b   |  27 lines
  1. /* $VER: 0.9, ©1994 BURGHARD Eric.                  */
  2. /*              Help on GoldED.guide                */
  3.  
  4. options results
  5. if (left(address(), 6) ~= "GOLDED") then address 'GOLDED.1'
  6. 'LOCK CURRENT QUIET'                        /* lock GUI, gain access   */
  7. if rc then exit
  8.  
  9. if exists("ENV:OldFunc'") then do
  10.   ok=open(readhandle,"ENV:OldFunc'","read")
  11.   oldfunc=readln(readhandle)
  12.   ok=close(readhandle)
  13. end
  14. else oldfunc=""
  15. 'REQUEST TITLE="Autodocs Help" BODY="Type searched name" BUTTON="Search|Cancel" STRING OLD="'oldfunc'" VAR WORD'
  16. if rc~==0 then do
  17.   'UNLOCK'
  18.   exit
  19. end
  20.  
  21. address command 'SetEnv OldFunc 'result''
  22.  
  23. 'HELP TOPIC 'result''
  24.  
  25. 'UNLOCK'
  26. exit
  27.